(library (gensym)
(export dgensym)
(import (chezscheme))

(define counter 0)

(define (dgensym s)
 (set! counter (+ counter 1))
 (string->symbol (string-append (symbol->string s) (number->string counter))))

)
